home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
GRAPHICS
/
IMGLIB95
/
UDEMO.DF_
/
UDEMO.DF
/
UDEMO.txt
Wrap
Text File
|
1996-03-31
|
29KB
|
706 lines
object DemoForm1: TDemoForm1
Left = 64
Top = 65
ActiveControl = PMultiImage1
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
ClientHeight = 444
ClientWidth = 629
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object Panel1: TPanel
Left = 577
Top = 0
Width = 52
Height = 415
Align = alRight
BevelInner = bvRaised
BevelWidth = 2
TabOrder = 0
object SpeedButton14: TSpeedButton
Left = 5
Top = 5
Width = 42
Height = 24
Hint = 'Show or hide Toolbar'
AllowAllUp = True
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
11155557F755F777777555000755033305555577755F75F77F55555555503335
0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
05555757F75F75557F5505000333555505557F777FF755557F55000000355557
07557777777F55557F5555000005555707555577777FF5557F55553000075557
0755557F7777FFF57555553350000055555555775777775555550000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton14Click
end
object SpeedButton1: TSpeedButton
Left = 5
Top = 28
Width = 42
Height = 24
Hint = 'Video Frame Grabber Demo'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3344344333333333333FF377377F33333333337034433344333333333377377F
33773333333333033443334433333333337F377F337733333333330334433344
333333333F7FF77F337733333333700074433344333333337777777FF3773333
3333370733443443333333333777337737733333333333733333333333333333
3F73FF3333333333333344344333333333333FF377377FF33333333370344333
44333333333377377F3377F333333333033443334433333333337F377F3377F3
333333330334433344333333333F7FF77F3377F3333333700074433344333333
337777777FF37733333333370733443443333333333777337737733333333333
7333333333333333333F73FF333333333333334434433333333333333377377F
F3333333333334433344333333333333377F3377F33333333333344333443333
33333333377F3377F3333333333334433344333333333333377F3377F3333333
333334433344333333333333377FF37733333333333333443443333333333333
33773773333333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 5
Top = 51
Width = 42
Height = 24
Hint = 'Images using TPMultiImage VCL'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0BBBBB
BBB07F333F7F3FF33FF70FFF700B00BB00B07F3F777F77F377370F707F0BB0B0
0BB07F77337F37F77337007EEE0BB0B0BBB077FFFF7F37F7F3370777770EE000
EEE07777777F3777F3F7307EEE0E0E00E0E03773FF7F7377F73733707F0EE000
0EE03337737F377773373333700EEE00EEE03333377F3377FF373333330EEEE0
0EE03333337F33377F373333330EEEE00EE03333337F333773373333330EEEEE
EEE03333337FFFFFFFF7333333000000000033333377777777770000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 5
Top = 74
Width = 42
Height = 24
Hint = 'Image conversion demo using TPMultiImage'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
33337777773333333333333333333333333333333333333333330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 5
Top = 97
Width = 42
Height = 24
Hint = 'TPDBMultiMedia BlobField Demo'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
07807F777733337F7F3707888887880808807F333333337F7F37077777778800
08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
33003777737777333377333080333333333333F7373333333333300803333333
33333773733333333333088033333333333373F7F33333333333308033333333
33333737333333333333330333333333333333733333333333330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 5
Top = 120
Width = 42
Height = 25
Hint = 'TPDBMultiImage BlobField Demo'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
033333777777777773333330777777703333333773F333773333333330888033
33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 5
Top = 144
Width = 42
Height = 25
Hint = 'TPDBMultiImage and TPDBMultiIMedia BlobField Demo'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
00007777777777777777933393303933337073F37F37F73F3377393393303393
379037FF7F37F37FF777379793303379793037777337F3777737339933303339
93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
999037777337F377777793993330333393307377FF37F3337FF7333993303333
993033377F37F33377F7333993303333993033377337F3337737333333303333
33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
03037F7F7F7F7F7F7F7F000000000000000077777777777777770000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton6Click
end
object SpeedButton12: TSpeedButton
Left = 5
Top = 168
Width = 42
Height = 25
Hint = 'DBIconListBox and DBIconComboBox'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFFFFFF
FFFF33333333333FFFFF3FFFFFFFFF00000F333333333377777F33FFFFFFFF09
990F33333333337F337F333FFFFFFF09990F33333333337F337F3333FFFFFF09
990F33333333337FFF7F33333FFFFF00000F3333333333777773333333FFFFFF
FFFF3FFFFF3333333F330000033FFFFF0FFF77777F3333337FF30EEE0333FFF0
00FF7F337FFF333777FF0EEE00033F00000F7F33777F3777777F0EEE0E033000
00007FFF7F7FF777777700000E00033000FF777773777F3777F3330EEE0E0330
00FF337FFF7F7F3777F33300000E033000FF337777737F37773333330EEE0300
03FF33337FFF77777333333300000333333F33337777733333330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton12Click
end
object SpeedButton7: TSpeedButton
Left = 5
Top = 192
Width = 21
Height = 25
Hint = 'Scrolling Messages Demo'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333FFFFF3333333333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC377777737F777777F008888070888
8003773FFF7773FFF77F0F0770F7F0770F037F777737F777737F70FFFFF7FFFF
F07373F3FFF7F3FFF37F70F000F7F000F07337F77737F777373330FFFFF7FFFF
F03337FF3FF7F3FF37F3370F00F7F00F0733373F7737F77337F3370FFFF7FFFF
0733337F33373F337333330FFF030FFF03333373FF7373FF7333333000333000
3333333777333777333333333333333333333333333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton7Click
end
object SpeedButton19: TSpeedButton
Left = 25
Top = 192
Width = 22
Height = 25
Hint = 'Zoom demo with rubberband rectangle'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33033333333333333F7F3333333333333000333333333333F777333333333333
000333333333333F777333333333333000333333333333F77733333333333300
033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
333333773FF77333333333370007333333333333777333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton19Click
end
object SpeedButton13: TSpeedButton
Left = 5
Top = 216
Width = 42
Height = 25
Hint = 'Form with MultiImage Toolbar demo'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
DD000000DDDDDD000000DDDDDD066660DDDDDD000000D0000006666000000D00
0000DDD000666666000DDD000000DDDDD00066000DDDDD000000DDDDDDD0000D
DDDDDD000000DDDDDDDD88DDDDDDDD000000D0000000000000000D000000D0F8
0F80F80F80F80D000000D0FF0FF0FF0FF0FF0D000000D0000000000000000D00
0000DDDDDDDDDDDDDDDDDD000000D0000000000000000D000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton13Click
end
object SpeedButton15: TSpeedButton
Left = 5
Top = 240
Width = 42
Height = 25
Hint = 'Form with DBMultiImage Toolbar demo'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
DD000000DDDDDD000000DDDDDD066660DDDDDD000000D0000006666000000D00
0000DDD000666666000DDD000000DDDDD00066000DDDDD000000DDDDDDD0000D
DDDDDD000000DDDDDDDD88DDDDDDDD000000D0000000000000000D000000D0F8
0F80F80F80F80D000000D0FF0FF0FF0FF0FF0D000000D0000000000000000D00
0000DDDDDDDDDDDDDDDDDD000000D0000000000000000D000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton15Click
end
object SpeedButton16: TSpeedButton
Left = 5
Top = 264
Width = 42
Height = 25
Hint = 'Form with DB MULTI MEDIA Toolbar demo'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
DD000000DDDDDD000000DDDDDD066660DDDDDD000000D0000006666000000D00
0000DDD000666666000DDD000000DDDDD00066000DDDDD000000DDDDDDD0000D
DDDDDD000000DDDDDDDD88DDDDDDDD000000D0000000000000000D000000D0F8
0F80F80F80F80D000000D0FF0FF0FF0FF0FF0D000000D0000000000000000D00
0000DDDDDDDDDDDDDDDDDD000000D0000000000000000D000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton16Click
end
object SpeedButton17: TSpeedButton
Left = 5
Top = 288
Width = 42
Height = 25
Hint = 'The use of PMultiMedia with toolbar'
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DDDD
DD000000DDDDDD000000DDDDDD066660DDDDDD000000D0000006666000000D00
0000DDD000666666000DDD000000DDDDD00066000DDDDD000000DDDDDDD0000D
DDDDDD000000DDDDDDDD88DDDDDDDD000000D0000000000000000D000000D0F8
0F80F80F80F80D000000D0FF0FF0FF0FF0FF0D000000D0000000000000000D00
0000DDDDDDDDDDDDDDDDDD000000D0000000000000000D000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton17Click
end
object SpeedButton8: TSpeedButton
Left = 5
Top = 312
Width = 42
Height = 26
Hint = 'Global Palette Demo'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDD77777777DD0000D077
DDDDD1111111177D0000DD007DD7777818F8117D0000DD0F0700007181F1717D
0000DDD0F007800718F8117D0000DDDD0F00807071F1717D0000DDD000F00080
78F8117D0000DDD08008078071F1717D0000DDD07700087018F8117D0000DDD0
0007870181F1717D0000DDDD0788701818F8117D0000DDDDD000018181F1717D
0000DDDDDDDD171818F8F17D0000DDDDDDDD11FFFFFF11DD0000DDDDDDDDD111
11111DDD0000DDDDDDDDDD1778F17DDD0000DDDDDDDDDD111111DDDD0000DDDD
DDDDDDDDDDDDDDDD0000}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton8Click
end
object SpeedButton9: TSpeedButton
Left = 5
Top = 337
Width = 42
Height = 25
Hint = 'Some ImageLib Clients'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333FFFF3333FFFF33333330000333300003333333377
77FF337777FF33333033360330333603333F37F3377F37F3377F330330FFF303
30F3F303337337F3337F37F3337F303330FFF303303FF30337F337F3337FF7F3
337F3033303FF307703FF30337F337FFFF7777FFFF7F30330700003000000073
37F377777737777777733030733333333033073337F773333333373F77333707
3333333333003333377733333333337733333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton9Click
end
object SpeedButton10: TSpeedButton
Left = 5
Top = 361
Width = 22
Height = 25
Hint = 'What are clients saying'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
0033333337FFFFFF7733333330000000033333333777777773330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton10Click
end
object SpeedButton18: TSpeedButton
Left = 25
Top = 361
Width = 22
Height = 25
Hint = 'ImageLib Info'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
0033333337FFFFFF7733333330000000033333333777777773330000}
Layout = blGlyphTop
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton18Click
end
object SpeedButton11: TSpeedButton
Left = 5
Top = 385
Width = 42
Height = 25
Enabled = False
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF33333333333777773333330000}
Layout = blGlyphTop
Margin = 1
NumGlyphs = 2
OnClick = SpeedButton11Click
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 577
Height = 415
Align = alClient
BevelInner = bvLowered
BevelWidth = 4
TabOrder = 1
object PMultiImage1: TPMultiImage
Left = 8
Top = 8
Width = 561
Height = 399
Align = alClient
Center = True
Color = clBtnFace
Font.Color = clRed
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsItalic]
ImageName = 'file not found'
ImageDither = True
ImageReadRes = lAutoMatic
ImageWriteRes = sAutoMatic
TifSaveCompress = sNONE
JPegSaveQuality = 25
JPegSaveSmooth = 0
ParentFont = False
Stretch = True
TextLeft = 0
TextTop = 0
TextRotate = 0
TabOrder = 3
TabStop = False
end
object Memo1: TMemo
Left = 35
Top = 30
Width = 509
Height = 350
BorderStyle = bsNone
Color = clGray
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 2
Visible = False
end
object BitBtn3: TBitBtn
Left = 487
Top = 262
Width = 40
Height = 40
Hint = 'About ImageLib'
Caption = 'About'
TabOrder = 4
Visible = False
OnClick = BitBtn3Click
Glyph.Data = {
42010000424D4201000000000000760000002800000011000000110000000100
040000000000CC00000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000007777777777777777700000007777777777777777700000007700
0000000000007000000077777777777777777000000077000000000000007000
0000777777777777777770000000770000000000000070000000777777777777
7777700000007700000000000000700000007777777777777777700000007700
0000000000007000000077777777777777777000000077000000000000007000
0000777777777777777770000000777777777777777770000000777777777777
777770000000}
Layout = blGlyphTop
Style = bsNew
end
object BitBtn2: TBitBtn
Left = 487
Top = 301
Width = 40
Height = 40
Caption = 'Print'
TabOrder = 0
Visible = False
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
Layout = blGlyphTop
NumGlyphs = 2
Style = bsNew
end
object BitBtn1: TBitBtn
Left = 487
Top = 340
Width = 40
Height = 40
Caption = 'Close'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
OnClick = BitBtn1Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
555555777777777FF5555500000000805555557777777777FF555550BBBBB008
05555557F5FFF7777FF55550B000B03080555557F77757F777F55550BBBBB033
00555557F55557F577555550BBBBB03305555557FFFFF7F57F55555000000033
05555557777777F57F555550BBBBB03305555557F5FFF7F57F555550B000B033
05555557F77757F57F555550BBBBB03305555557F55557F57F555550BBBBB033
05555557FFFFF7FF7F55550000000003055555777777777F7F55550777777700
05555575FF5555777F5555500B3B3B300555555775FF55577FF555555003B3B3
005555555775FFFF77F5555555700000005555555557777777550000}
Layout = blGlyphTop
NumGlyphs = 2
Style = bsNew
end
end
object Panel3: TPanel
Left = 0
Top = 415
Width = 629
Height = 29
Align = alBottom
BevelInner = bvRaised
BevelWidth = 2
TabOrder = 2
object MultiImage2: TPMultiImage
Left = 4
Top = 4
Width = 621
Height = 21
Align = alClient
Color = clNavy
ImageName = 'file not found'
ImageDither = True
ImageReadRes = lColor256
ImageWriteRes = sColor256
TifSaveCompress = sNONE
JPegSaveQuality = 25
JPegSaveSmooth = 0
TextLeft = 0
TextTop = 0
TextRotate = 0
TabOrder = 0
TabStop = False
end
end
object PrintDialog1: TPrintDialog
Left = 490
Top = 220
end
object ImageToolBar1: TMImageToolBar
PreviewsDir = 'c:\'
tbLeft = 1
tbTop = 1
tbCaption = 'Image Toolbar'
MultiImage = PMultiImage1
OpenDialogFilter =
'all images|*.jpg;*.bmp;*.gif;*.tif;*.pcx;*.wmf;*.ico;*.png;*.scm' +
';*.cms|jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|tif|*.tif|pcx|*.pcx|png' +
'|*.png|scroll|*.scm|credit|*.cms|metafile|*.wmf|icon|*.ico'
SaveDialogFilter =
'all images|*.jpg;*.bmp;*.gif;*.tif;*.pcx;*.wmf;*.ico;*.png;*.scm' +
';*.cms|jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|tif|*.tif|pcx|*.pcx|png' +
'|*.png|scroll|*.scm|credit|*.cms|metafile|*.wmf|icon|*.ico'
Left = 490
Top = 192
end
object ThumbPreview1: TThumbPreview
AutoLoad = False
Title = 'Image Preview'
DataFileName = 'thumbs.dat'
DataFileDir = 'C:\DELPHI\BIN\'
PreviewsDir = 'C:\DELPHI\BIN\'
Left = 490
Top = 165
end
end